home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
faq
/
wdj0597.zip
/
NEWCOMB.ZIP
/
VB
/
WDJSEARC.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1996-11-11
|
5KB
|
113 lines
WDJSearch
WDJ Search
Form15
CDialog
CommonDialog
MsgBlast
MsgBlaster
&Click on "..." for the About Box ---->
FoundList
CloseApp
SSCommand
Cl&ose
SearchCancel
SSCommand
Ca&ncel
SearchStart
SSCommand
&Search
SrchText
BrowseFile
SSCommand
&Browse
MS Sans Serif
SrchFileName
ProgBar
Gauge
FoundCount
ProgPercent
Shape1
Label3
Found:
Label2
&Text:
Label1
&File:
Form_Load
MsgBlast
hWndTarget
WDJSearch
MsgBlaster2
MsgList
WM_LBUTTONDOWN
MsgPassage'
EATMESSAGE
WM_USER
MBLST_EAT(
MsgBlast_Message@
MsgVal
wParamk
lParam=
ReturnVal
ProgBar
ValueV
FoundList
SearchStart_Click
SrchFile
SrchFileName
SrchText
SearchCancel
Enabled
FoundCount
Caption
ListCount
CloseApp_Click
ProgPercente
SearchCancel_Click
SrchCancel
MB_ICONEXCLAMATION
BrowseFile_Click
CDialog
Flags}
OFN_ALLOWMULTISELECT
OFN_FILEMUSTEXIST
OFN_HIDEREADONLY
DialogTitle
Filter
MaxFileSize
RIRead
InitDir
Filename
Action:
WDJ Search Applet
BrowseFile_Click
Select file to search
Select File to Search
All Files|*.*|Text Files (*.txt)|*.txt|C Files (*.c, *.h)|*.c;*.h
Make sure filename starts blank.a
CloseApp_Click
Done
Form_Load
Set up the Message BlasterJ
Point Blaster at this formJ
Private "Progress" message"
Absorb message (don't pass on)o
Private "Found" message
Absorb message (don't pass on)o
MsgBlast_Message
Handle messages sent from DLL
Progress messageD
Percent-done is wParamo
"Found" message
Line found is lParame
Update UI
SearchCancel_Click
Cancel this searchp
SearchStart_Click
Start the search
Nothing in found list
Turn on "Cancel" button
Search function failed!
WDJ Search
Turn off "Cancel" button